home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / knowhow4 / calendar.vec < prev    next >
Encoding:
Text File  |  1994-11-12  |  1.8 KB  |  98 lines
  1. ADDZOOM(1,1)
  2. PLAY("bird.vec")
  3. PLAY("reset.vec")
  4. ZOOM(0.2, 0.2)
  5. font("trip.chr")
  6. &       Parameters: left, top, year
  7. & 0 if not visocose (1980 was)
  8. style(1,15)
  9. RECTANGLE(0,1200,2000, 2200)
  10. @CALENDAR(100, 1300, 1995, 0)
  11. &@MON(10, 40, "MONTH", 3, 31)
  12. END
  13.  
  14. @CALENDAR(l, t, year, v)
  15. day = 7
  16. IF year = 1996 THEN day = 1
  17.     x = l: y = t + 15
  18.     FOR i = 1 TO 3
  19.         TEXT(x, y, "Mo")
  20.         y = y + 30
  21.         TEXT(x, y, "Tu")
  22.         y = y + 30
  23.         TEXT(x, y, "We")
  24.         y = y + 30
  25.         TEXT(x, y, "Th")
  26.         y = y + 30
  27.         TEXT(x, y, "Fr")
  28.         y = y + 30
  29.         TEXT(x, y, "Sa")
  30.         y = y + 30
  31.         TEXT(x, y, "Su")
  32.  
  33.         y = y + 100
  34.     NEXT
  35.     x = l + 100: y = t -30
  36.   day=@MON(x, y, "January",day, 31)
  37.   dv = 28
  38.   IF v = 1 THEN dv = 29
  39.   day=@MON(x+340,y,"February",day,dv)
  40.   day=@MON(x+680,y,"March",day,31)
  41.   day=@MON(x+1020,y,"April",day,30)
  42.   day=@MON(x,y+280, "May",day, 31)
  43.   day=@MON(x+340,y+280,"June",day,30)
  44.   day=@MON(x+680,y+280,"July",day,31)
  45.   day=@MON(x+1020, y+280, "August",day, 31)
  46.   day=@MON(x,y+560,"September",day,30)
  47.   day=@MON(x+340,y+560,"October",day,31)
  48.   day=@MON(x+680,y+560,"November",day, 30)
  49.   day=@MON(x+1020,y+560,"December",day, 31)
  50.  
  51.  
  52.  
  53.  
  54. RETURN
  55.  
  56. @MON(x1, y1, head, start, num)
  57.     FILL(1)
  58.     STYLE(1, 15)
  59.     TEXT(x1 + 60, y1, head)
  60.     days = 1
  61.     ln = start
  62.     y1 = y1 + 15
  63. !lab1
  64.     IF days > num THEN GOTO lab2
  65. !lab3
  66.     IF ln > 7 THEN GOTO lab4
  67.     IF days > num THEN GOTO lab2
  68.     @TEXT(x1, y1+30*ln, days)
  69.     days = days + 1
  70.     ln = ln + 1
  71.     GOTO lab3
  72. !lab4
  73.     x1 = x1 + 50
  74.     ln = 1
  75.     GOTO lab1
  76. !lab2
  77. RETURN ln
  78.  
  79. @TEXT(x2, y2, number)
  80.     TEXT(x2, y2, number)
  81.     COLOR(15)
  82.     shift = 37
  83.     IF number < 10 THEN shift = 20
  84.     RECTANGLE(x2+shift,y2-45,x2+160,y2+30)
  85.     COLOR(0)
  86. RETURN
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.